1.eusgl$ (print 1234.56789)
1234.57
1234.57
2.eusgl$ (setq lisp::*print-precision* 17)
17
3.eusgl$ (print 1234.56789) 
1234.5678899999994
1234.5678899999994

(print (v- #f(1234.56789) (float-vector 1234.56789)))

init_ftab();
��������local[0]= fqv[0];
��������local[1]= makeflt(1.2345678899999993518577e+03);
��������ctx->vsp=local+2;
��������w=(pointer)MKFLTVEC(ctx,1,local+1); /*float-vector*/
��������local[1]= w;
��������ctx->vsp=local+2;
��������w=(pointer)VMINUS(ctx,2,local+0); /*v-*/
��������local[0]= w;
��������ctx->vsp=local+1;
��������w=(pointer)PRINT(ctx,1,local+0); /*print*/

define QUOTE_STRINGS_SIZE 2
static char *quote_strings[QUOTE_STRINGS_SIZE]={
    "#f(1234.57)",
    "exit",
  };